home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1996-02-05 | 8.1 KB | 361 lines |
- Hide
- Dir$="Dh2:Presentation"
- 'BLAST
- 'End
- Extension_8_0456 "mod.virtual reality",-3
- Screen Open 7,320,256,2,0 : Screen Hide
- GEARDRAW
- Extension_8_0456 "AMIGABlast.anim",8
- Extension_8_10F2 0
- Extension_8_108E 3
- AMIGA
- Load Iff "AmigaCreative.iff",3 : Screen Hide
- BLST=Frame Play(Start(8)+12,1,3) : Screen Hide
- Double Buffer : Autoback 0
- Extension_8_128A 7
- Extension_8_1318 3,0,3,1,3,2 To 7,0,%11111110
- Screen Copy 7,0,0,320,256 To 7,7,0
- SPARKS
- AMIGACREATIVE
- PLAIANIM
- SUPERSOFTSCROLLER
- End
- Procedure BLAST
- Load Iff "AmigaCreative.iff",3
- AN= Extension_8_0CF2(3,0,0,0 To 320,256)
- Extension_8_0D24 9,AN+1
- Extension_8_0D2E 3,0,0,0 To 320,256,9,0
- Double Buffer : Autoback 0
- Extension_8_0D4E 10,AN+1
- Extension_8_0D66
- Extension_8_0DB8 0,3
- Extension_8_0D8A 0,4
- Extension_8_0E62 -1
- Extension_8_0F2A -1
- N=0
- Repeat
- Screen Swap : Wait Vbl
- Extension_8_0DEC
- Save Iff "dh2:dpaint/SPanims/Temp/"+ Extension_8_0EB8(N,3)
- Inc N
- Until Extension_8_0F40 =0
- End Proc
- Procedure AMIGA
- Extension_8_0456 "AMIGA1.anim",10
- Load Iff "Texture.iff",0 : Screen Hide
- Screen 7 : Get Palette 0
- For A=0 To 7
- Colour A*4+2, Extension_8_0EFC(Colour(A*4),$444,0 To $FFF)
- Next
- For A=0 To 15
- Colour A*2+1, Extension_8_0EFC(Colour(A*2),$777,0 To $FFF)
- Next
- Screen 0
- For A=0 To 31 : Colour A,0 : Next
- Wait Vbl
- Screen Show
- Wait Vbl
- Fade 3 To 7
- Double Buffer : Autoback 0
- Wait 16
- Screen 7 : Get Palette 0 : Screen 0
- ST=Start(10)+766
- Extension_8_128A 0
- For FR=2 To 200
- ST=Frame Play(ST,1)
- Extension_8_12B2 0,0 To 7,0
- Screen Swap
- Extension_8_12B2 7,0 To 0,1
- Wait 2
- Next
- Screen Copy Physic(0) To Logic(0)
- Extension_8_0456 D$+"AMIGA2.anim",10
- Screen 7
- For A=0 To 15
- Colour A*2+1,0
- Next
- Screen 0
- While Extension_8_10B6 =0 : Multi Wait : Wend
- Fade 7 To 7
- ST=Start(10)+1420
- For FR=2 To 100
- ST=Frame Play(ST,1)
- Screen Swap : Wait 2
- Next
- Screen Close 0
- Erase 10
- End Proc
- Procedure SPARKS
- Screen Open 0,320,288,32,0
- Curs Off : Flash Off : Paper 0 : Cls 0
- For A=0 To 15 : Colour A,0 : Next
- Screen Display 0,128,40,320,256
- Extension_8_128A 0
- Extension_8_12B2 7,0 To 0,4
- Extension_8_0A7E 9,400
- Extension_8_0AAA 0,286 To 1,287
- Extension_8_0BCC 0,0
- Extension_8_0BAE
- Extension_8_0B78 0,3
- Extension_8_0AD0
- Extension_8_0A94
- Double Buffer : Autoback 0
- While Extension_8_10B6 =0 : Multi Wait : Wend
- For A=1 To 31
- Colour A,$FFF
- Next
- Colour 16,$111
- D0=(Rnd(4095) and $777)+$888
- For A=0 To 3
- Colour Extension_8_04F8(A), Extension_8_0EFC(D0,-A*$222,0 To $FFF)
- Next
- Wait Vbl
- Extension_8_128A 0
- T=0 : PT=0 : T2=0
- Repeat
- Wait Vbl
- Extension_8_12B2 0,2 To 0,3
- If PT=0 Then PT= Extension_8_10B6
- If PT
- Inc T2
- Extension_8_0AB8 0,287
- Else
- Extension_8_0AB8 XM,YM
- End If
- Extension_8_12B2 0,1 To 0,2
- If(T and 15)=0
- XM=Rnd(319) : YM=Rnd(128)
- End If
- If(T and 31)=0
- D0=(Rnd(4095) and $777)+$888
- D1= Extension_8_0EFC(D0,-$222,0 To $FFF)
- D2= Extension_8_0EFC(D0,-$444,0 To $FFF)
- D3= Extension_8_0EFC(D0,-$666,0 To $FFF)
- Fade 1,,D0,D1,,D2,,,,D3,,,,,,,,,D0,D1,,D2,,,,D3
- End If
- Inc T
- Extension_8_12B2 0,0 To 0,1
- Extension_8_1258
- Extension_8_0B2E
- Extension_8_0B48
- Extension_8_0B64
- Screen Swap
- Until T2>100 and PT<>0
- End Proc
- Procedure AMIGACREATIVE
- Shared BLST
- Screen 3
- For A=1 To 7 : Colour A,$111 : Next
- Screen Offset 3,7,0
- Screen Display 3,144,40,304,256
- Screen To Front 3
- Screen Show 3
- Screen Close 0
- Screen 3
- Fade 3,0,$FC4,$EA3,$D82,$B62,$A51,$960,$830
- Set Rainbow 0,0,64,"","",""
- Extension_8_1330 0,-63
- For A=0 To 63
- Rain(0,A)=$77
- Next
- RY=0 : R=4 : R2=112 : SP=16
- T=0
- Repeat
- Wait Vbl
- If R<112
- Inc R
- For A=0 To 63
- S= Extension_8_1106(A*32,R/16)+7
- Rain(0,A)=S+S*16
- Next
- Else
- Inc T
- End If
- Rainbow 0,RY/16,Y Hard(-1),258
- RY=(RY+SP) and 1023
- If T>128 Then Dec SP
- If R2>0 and T>256
- Dec R2
- For A=0 To 63
- S= Extension_8_1106(A*32,R2/16)+7
- Rain(0,A)=S+S*16
- Next
- End If
- Until Extension_8_10B6
- Rainbow Del : View
- ST=BLST
- For A=1 To 52
- ST=Frame Play(ST,1)
- Screen Swap
- Wait Vbl
- Next
- Screen Close 3
- Erase 8
- End Proc
- Procedure PLAIANIM
- Extension_8_0456 "b1.anim",10
- Extension_8_0456 "b2.anim",11
- Extension_8_0456 "b3.anim",12
- Screen 7 : For A=0 To 31 : Colour A,0 : Next
- ST=Start(10) : LE=Length(9) : ED=ST+LE
- ST=Frame Play(ST+12,1,0)
- For A=0 To 238
- ST=Frame Play(ST,1)
- Get Palette 7
- Next
- Double Buffer : Autoback 0
- FRCO=0
- For A=240 To 653
- Gosub DRAFRAME
- Next
- ST=Start(11)+12
- For A=0 To 366
- Gosub DRAFRAME
- Next
- ST=Start(12)+12
- For A=0 To 250
- Gosub DRAFRAME
- Next
- Erase 10
- Erase 11
- Erase 12
- Screen Close 0
- Pop Proc
- DRAFRAME:
- NST=Frame Play(ST,1)
- AD=Hunt(ST To NST,"CMAP")
- If AD
- Add AD,8
- For AA=0 To 31
- C0=Peek(AD)/16 : C1=Peek(AD+1)/16 : C2=Peek(AD+2)/16 : Add AD,3
- Colour AA, Extension_8_0A0E(C0,C1,C2)
- Next
- End If
- Screen Swap : Wait Vbl
- ' Save Iff "dh2:dpaint/spanims/buzzed/Buzzed"+Lzstr$(FRCO,4)
- ' Inc FRCO
- ST=NST
- Return
- End Proc
- Procedure GEARDRAW
- For S=0 To 1
- Screen Open S+1,320,256,16,0 : Screen Hide
- Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
- Next
- W1=0 : W2=16 : W3=0 : W4=0
- For S=0 To 7
- Screen S/4+1
- Add W1,8
- Add W2,-8
- Add W3,4
- Add W4,-8
- W=W1 : R1=80 : R2=96 : X=220 : Y=100 : ST=16
- Gosub GEAR
- W=W2 : R1=60 : R2=72 : X=88 : Y=188 : ST=16
- Gosub GEAR
- W=W3 : R1=40 : R2=48 : X=58 : Y=58 : ST=8
- Gosub GEAR
- W=W4 : R1=20 : R2=24 : X=258 : Y=220 : ST=16
- Gosub GEAR
- Extension_8_1042 S/4+1,S and 3
- Next
- Pop Proc
- GEAR:
- X1=0 : D=0
- For A=0 To 1023 Step ST
- If D<2
- X2= Extension_8_1114(A+W,R1)+X
- Y2= Extension_8_1106(A+W,R1)+Y
- Else
- X2= Extension_8_1114(A+W,R2)+X
- Y2= Extension_8_1106(A+W,R2)+Y
- End If
- Add D,1,0 To 3
- If X1=0
- OX1=X2 : OY1=Y2
- Else
- Extension_8_1030 X1,Y1 To X2,Y2,15,- Extension_8_04F8(S and 3)
- End If
- X1=X2 : Y1=Y2
- Next
- Extension_8_1030 X1,Y1 To OX1,OY1,15,- Extension_8_04F8(S and 3)
- Return
- End Proc
- Procedure SUPERSOFTSCROLLER
- Screen Open 7,320,256,2,0
- Curs Off : Flash Off : Paper 0 : Pen 1 : Cls
- Double Buffer : Autoback 0
- Unpack 16 To 0 : Screen Hide
- For A=0 To 58
- Get Block A+1,(A mod 20)*16,(A/20)*16,16,16
- Next
- Screen Open 0,320,576,4,0
- Curs Off : Flash Off : Paper 0 : Pen 1 : Cls
- For A=0 To 15 : Colour A,0 : Next
- Screen Display 0,128,40,320,256
- YPOS=0
- Screen Offset 0,0,YPOS+24
- Dual Playfield 0,7
- T$=""
- T$=T$+"$EQUIPMENT USED:$$AMIGA 500 WITH 6 MB$DPAINT IV$"
- T$=T$+"AMOS PROFESSIONAL$PROTRACKER 2.2$$$$$$$"
- T$=T$+"GRAPHICS BY:$UNKNOWN$$$ANIMATIONS BY$JAMES ROBINSON$CHRIS HODGES$$$"
- T$=T$+"MUSIC BY$ORGANIC/SHINING$MR.MAN/ANDROMEDA$$$$$$"
- T$=T$+"$$$$$$DIRECTED BY$CHRIS HODGES$$$$$$$$$$THE END$$$$$$$$$$$"
- Set Rainbow 0,0,16,"","",""
- For A=0 To 15
- Rain(0,A)=$3204
- Next
- Extension_8_1330 0,-64
- Rainbow 0,0,Y Hard(-2),260
- BP=1 : S=0
- Fade 3,0,$CCC,$550,$FFC,$999,$555,$CC9,$995
- Extension_8_128A 7
- Repeat
- Gosub PULET
- Add S,1,0 To 7
- Extension_8_12B2 S/4+1,S and 3 To 7,0 : Screen Swap
- If Deek($DFF004) and $8000 Then Wait Vbl
- Gosub PULET
- Add S,1,0 To 7
- Extension_8_12B2 S/4+1,S and 3 To 7,0 : Screen Swap
- If BP Then Add YPOS,1,0 To 287
- Screen Offset 0,0,YPOS+24
- Wait Vbl
- Until 0
- If Deek($DFF004) and $8000 Then Wait Vbl
- Rainbow Del : View
- Screen Close 0
- Pop Proc
- PULET:
- YP=YPOS and $FFF0
- If(YPOS and 15)=0 Then LP=0
- If LP=0
- XP=160
- For A=BP To Len(T$)
- Exit If Mid$(T$,A,1)="$"
- Add XP,-8
- Next
- Inc LP : Return
- End If
- If LP=1
- Ink 0 : Bar 0,YP To 319,YP+15
- Inc LP : Return
- End If
- If LP=2
- Ink 0 : Bar 0,YP+288 To 319,YP+303
- Inc LP : Return
- End If
- If LP=3
- P=Asc(Mid$(T$,BP,1))
- Add BP,1,0 To Len(T$)
- If P=36
- LP=-1
- Else
- Put Block P-31,XP,YP
- Put Block P-31,XP,YP+288
- Add XP,16
- End If
- End If
- Return
- End Proc